Sub CreateIndex()
Dim cat1 As New ADOX.Catalog
Dim tbl1 As ADOX.Table
Dim index1 As New ADOX.Index

'Specify database engine, data source, and table to index
cat1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
     & "Data Source = C:\LunarSociety\NewDB.mdb"
Set tbl1 = cat1.Tables("Donors")

'Set index properties
With index1
     .Name = "PKindex"
     .Unique = True
     .IndexNulls = adIndexNullsDisallow
End With

'Append column to index, and specify sort order
index1.Columns.Append "DonorID"
index1.Columns(0).SortOrder = adSortAscending

'Append index to table
tbl1.Indexes.Append index1

'Clean up before exiting
Set cat1 = Nothing
Set tbl1 = Nothing
Set index1 = Nothing

End Sub
